Top 10k strings from Spectrum Forth Game (1983)(CP Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 |SKILL "}FINI? 
   1 xBRIGHT(xPAPER ;xINK   QxBORDERbxHIRES qxPLOT  
   1 while,r-while-1
   1 wSkill level?"
   1 wLOOP  "w+LOOP 7wLEAVE WwEXIT  ^wEXITLP`wWAIT  ewMAX   vwMIN   
   1 wGive letter   "
   1 wGive 2nd digit"
   1 wGive 1st digit"
   1 w###abcdefghijklmnopqrstuvwxyz
   1 tFIELD FuCR    Qu+
   1 tEMIT  pt.
   1 else,r-else-1
   1 a$=a$+n$(1
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Give UDG number:":
   1 a$="File Name:":
   1 a$="Continue definition:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$(x);"+":
   1 SPECTRUM FORTH GAME
   1 ;"From   CP Software
   1 ;"Character ";C:
   1 ,begin-r+254
   1 ,begin-r+251
   1 *(a$="s")-1000
   1 *(a$="d")-2500
   1 *(a$="cp")
   1 *(a$=":")+2000
   1 ''''"Stack:";(29676
   1 '"You are now in Command Mode."
   1 '"Typing error.Continue.":
   1 '"Tape OK.":
   1 #abcdefghijklmnopqrstuvwxyz###"
   1 "routines"
   1 "dict&chrs"
   1 "Please play back to verify.":
   1 "Compiling - please wait."
   1  yC@    ,y!
   1  words excusively for his own    use."
   1  illegal exept for storage of    the purchacer's own FORTH
   1  Redefinition of character ";a$
   1  January 1983 M Hampson"
   1  Gt.Missenden,   Bucks."''"Please wait still loading"
   1  ELSE    THEN    BEGIN   WHILE   REPEAT  UNTIL   ."
   1  Copying of this program is
   1  8yC!    DyP@    NyP!    [yFILL  fyERASE xyDELETE
   1  17 Orchard Lane,   Prestwood,
   1  -vDROP  AvDUP   IvOVER  SvPICK  _vSWAP  qvROT   |vROLL  
   1  *zINKEY 9zKEY   MzRND   tzSCREEN